Nuprl Lemma : st-length-encrypt 0,22

T:(IdType), tab:secret-table(T), keyv:((+Atom1)data(T)).
||encrypt(tab;keyv)||  = ||tab||    
latex


Definitions{x:AB(x) }, , t  T, x:AB(x), x:AB(x), ||tab|| , <a,b>, , s = t, P  Q, False, A, AB, Type, Prop, True, ij, b, b, , a<b, i<j, T, P  Q, x:AB(x), P & Q, P  Q, Unit, left+right, encrypt(tab;keyv), secret-table(T), Id, data(T), Atom$n
Lemmasnat wf, data wf, secret-table wf, Id wf, eqtt to assert, assert of lt int, iff transitivity, eqff to assert, squash wf, true wf, bnot of lt int, assert of le int, lt int wf, le wf, bool wf, bnot wf, assert wf, le int wf

origin